home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1036_CArrayPane < prev    next >
Encoding:
Text File  |  1992-04-08  |  2.8 KB  |  119 lines
  1. %case uses%
  2. %case instance%
  3.     %if classname = CArrayPane%
  4.         %itemname%:%    %CAMArrayPane;
  5.     %else%
  6.         %itemname%:%    %%classname%;
  7.     %endif%
  8. %case create%
  9.     
  10.     %if classname = CArrayPane%
  11.         %itemname% := New%itemname%;
  12.     %else%
  13.         New (%itemname%);
  14.     %endif%
  15.     %itemname%.IViewRes ('%paneType%', %paneID%, %enclosure%, supervisor);
  16.     %if defined itsPanorama%
  17.         %set itsPanorama = itemname%
  18.     %endif%
  19. %case zAuxiliaryMethod.decl%
  20.     %if classname = CArrayPane%
  21.         Function  New%itemname%: CAMArrayPane;
  22.     %endif%
  23. %case zAuxiliaryMethod%
  24.     %if classname = CArrayPane%
  25.         {----------}
  26.         { The only purpose of this function is so that you can override it}
  27.         { to create the list as your subclass of CAMArrayPane}
  28.     
  29.         %if window%
  30.             Function  Z%windname%.New%itemname%: CAMArrayPane;
  31.         %else%
  32.             Function  Z%dlogname%.New%itemname%: CAMArrayPane;
  33.         %endif%
  34.         var
  35.             pane:            CAMArrayPane;
  36.         Begin
  37.             New (pane);
  38.             New%itemname% := pane;
  39.         End; {New%itemname%}
  40.     
  41.     %endif%
  42. %case auxiliaryClass%
  43.     %if classname = CArrayPane%
  44.         type
  45.             C%itemname%%    %= object (CAMArrayPane)
  46.                 Procedure IViewTemp        (anEnclosure:        CView;
  47.                                          aSupervisor:        CBureaucrat;
  48.                                          viewData:            Ptr);    override;
  49.                 Procedure GetCellText    (aCell:                Cell;
  50.                                          availableWidth:    integer;
  51.                                      var itsText:            Str255);    override;
  52.             end; {C%itemname%}
  53.     
  54.     %endif%
  55. %case auxiliaryMethod.decl%
  56.     %if classname = CArrayPane%
  57.         Function  New%itemname%: CAMArrayPane;    override;
  58.     %endif%
  59. %case auxiliaryMethod%
  60.     %if classname = CArrayPane%
  61.         {----------}
  62.         Procedure C%itemname%.IViewTemp%    %(anEnclosure:        CView;
  63.                                              aSupervisor:        CBureaucrat;
  64.                                              viewData:            Ptr);
  65.         Begin
  66.             inherited IViewTemp (anEnclosure, aSupervisor, viewData);
  67.         
  68.             {any additional initialization for your subclass}
  69.             AddRow (4, 0);        {e.g., add 4 rows at the beginning of the list}
  70.         
  71.         End; {IViewTemp}
  72.     
  73.         {----------}
  74.         Procedure C%itemname%.GetCellText%    %(aCell:                Cell;
  75.                                              availableWidth:    integer;
  76.                                          var itsText:            Str255);
  77.         Begin
  78.             {replace with your own code which uses the cell coordinates}
  79.             {to access your private data structures,}
  80.             {then convert the cell data to a Str255}
  81.         
  82.             case aCell.v of
  83.                 0:
  84.                     itsText := 'One';
  85.                 1:
  86.                     itsText := 'Two';
  87.                 2:
  88.                     itsText := 'Three';
  89.                 otherwise
  90.                     itsText := 'Infinity';
  91.             end; {case}
  92.         
  93.         End; {GetCellText}
  94.     
  95.         {----------}
  96.         { This overrides the parent's New%itemname% to create a subclass of CAMArrayPane}
  97.         
  98.         %if window%
  99.             Function  C%windname%.New%itemname%: CAMArrayPane;
  100.         %else%
  101.             Function  C%dlogname%.New%itemname%: CAMArrayPane;
  102.         %endif%
  103.         var
  104.             pane:            C%itemname%;
  105.         Begin
  106.             New (pane);
  107.             New%itemname% := pane;
  108.         End; {New%itemname%}
  109.     
  110.     %endif%
  111. %case ProviderChanged%
  112.     if aProvider = %itemname% then begin
  113.         if %itemname%.HasSelection then begin
  114.             {perhaps activate some buttons}
  115.         end else begin
  116.             {perhaps deactivate}
  117.         end
  118.     end;
  119.